home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 2611.ZIP / MANIFEST.ZIP / MANCLO.PRG < prev    next >
Text File  |  1988-04-14  |  2KB  |  76 lines
  1. ********************
  2. *    MANCLO.PRG    *
  3. *  CLOSE MANIFEST  *
  4. *     CHOICE 2     *
  5. *   APR 14, 1988   *
  6. *     GUY DUBEC    *
  7. ********************
  8. CLEA
  9. STOR ' ' TO CHOICE
  10. STOR 'F' TO END
  11. STOR SPACE(15) TO MANNOA
  12. STOR SPACE(6) TO RECA
  13. SELECT 1
  14. USE MANIFEST INDEX MANIFEST
  15. @1,23 TO 5,55 DOUBLE
  16. @2,24 TO 4,54 DOUBLE
  17. @3,26 SAY 'Manifest Information System'
  18. @7,30 TO 9,49
  19. @8,32 SAY 'Close a Manifest'
  20. DO WHIL END='F'
  21.   @11,0 SAY 'Enter State Manifest No. : ' GET MANNOA
  22.   @20,0 SAY 'Pressing <ENTER> returns to the Main Menu'
  23.   READ
  24.   IF MANNOA='               '
  25.     CLOSE DATA
  26.     RETURN
  27.   ENDIF
  28.   FIND &MANNOA
  29.   IF .NOT. EOF()
  30.     @11,50 SAY 'Ship Date (YYMMDD) : '
  31.     @11,71 SAY SHIP
  32.     @13,0 SAY 'Date Received by TSD : ' GET RECA
  33.     READ
  34.     REPL REC WITH RECA
  35.     STOR SPACE(3) TO HAND1A, HAND2A, HAND3A, HAND4A
  36.     SELECT 2
  37.     USE WASTE INDEX MANWST
  38.     DO WHIL END='F'
  39.       FINE &MANNOA
  40.       @15,0 SAY 'Waste Description : '
  41.       @15,20 SAY DESC
  42.       @16,0 SAY 'Handling Codes : ' GET HAND1A
  43.       @16,20 SAY ', ' GET HAND2A
  44.       @16,26 SAY ', ' GET HAND3A
  45.       @16,32 SAY ', ' GET HAND4A
  46.       READ
  47.       REPL HAND1 WITH UPPER(HAND1A)
  48.       REPL HAND2 WITH UPPER(HAND2A)
  49.       REPL HAND3 WITH UPPER(HAND3A)
  50.       REPL HAND4 WITH UPPER(HAND4A)
  51.       STOR SPACE(3) TO HAND1A, HAND2A, HAND3A, HAND4A
  52.       SKIP
  53.     ENDDO
  54.     @15,0 CLEAR
  55.     @15,0 SAY 'Close another Manifest (Y/N) ? : ' GET CHOICE
  56.     READ
  57.     IF UPPER(CHOICE)='N'
  58.       CLOSE DATA
  59.       RETURN
  60.     ENDIF
  61.     IF UPPER(CHOICE)='Y'
  62.       STOR ' ' TO CHOICE
  63.       STOR SPACE(15) TO MANNOA
  64.       STOR SPACE(6) TO RECA
  65.       GO TOP
  66.     ENDIF
  67.   ELSE
  68.     ?CHR(7)
  69.     @20,16 SAY 'Manifest Number not in file - Enter a new Number'
  70.     ?
  71.     WAIT 'press any key to continue . . .'
  72.     @20,0 CLEA
  73.     GO TOP
  74.   ENDIF
  75. ENDDO
  76.